CAADynamicalTime_UT1MinusUTC <-
function(JD){.Call("CAADynamicalTime_UT1MinusUTC", JD)}
